home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / batch / MiniMen.lha / MiniMen / DMSX.2 < prev    next >
Encoding:
AmigaDOS Script File  |  2000-02-13  |  407 b   |  19 lines
  1. .key fname
  2. echo c
  3. cc:MiniMen cc:drives
  4. if exists env:minmen
  5.    assign >nil: exists $MinMen:
  6.    if warn
  7.       mount >nil: sys:storage/dosdrivers/$MinMen
  8.    endif
  9. ;   cc:dms write <fname> to $MinMen: VERIFY
  10.    if $MinMen EQ "PC0"
  11.       cc:undms <fname> to $MinMen: PC VERIFY
  12.    ELSE
  13.       cc:undms <fname> to $MinMen: VERIFY
  14.    ENDIF
  15.    delete >nil: env:MinMen
  16. else
  17.    echo "*N Operation canceled...!"
  18. endif
  19.